# n = x * y
clear n;
copy x to i;
while i not 0 do;
	copy y to j;
	while j not 0 do; 
		incr n;
		decr j;
	end;
	decr i;
end;
